'# Copyright (c) 2008-2011 Hacker Wez
'# Source code distributed under the GNU Lesser license
'# http://bluepillredpill.codeplex.com/license
Public Class footprint : Inherits glyphbase

    Public Property Life() As Integer
        Get
            Return _Life
        End Get
        Set(ByVal value As Integer)
            _Life = value
        End Set
    End Property
    Private _Life As Integer

    Function IsAlive() As Boolean
        Life -= Decay
        Return (Life > 0)
    End Function

    Public Overrides Function spawn_footprint() As Object
        Return Nothing
    End Function

End Class
